(unidata-get-decomposition): Adjust Hangle decomposition rule to

Unicode.

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 5a03fd714310ce34755b2c271818fc7148b9c4e1..7fecb999d35401cad8211676a7623c8262ef56eb 100644 (file)
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -828,11 +828,13 @@ Property value is a character."
          (L (+ #x1100 (/ char 588)))
          ;; V = VBase + (SIndex % NCount) * TCount
          (V (+ #x1161 (/ (% char 588) 28)))
+         ;; LV = SBase + (SIndex / NCount) * NCount
+         (LV (+ #xAC00 (* (/ char 588) 588)))
          ;; T = TBase + SIndex % TCount
          (T (+ #x11A7 (% char 28))))
       (if (= T #x11A7)
          (list L V)
-       (list L V T))))
+       (list LV T))))
 
    ))